Imports System.Xml
Imports System.Data.SqlClient
Public Class dBanco

    Public Function Existe(ByVal Denominacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If Denominacion <> "" Then
            Parametros.Add(New SqlParameter("@pEDenominacion", Denominacion))
        End If
        Return (CapaDeDatos.dConexion.Consultar("STORE_TblBancoBUSCARFILTRADO", Parametros).Tables(0).Rows.Count <> 0)
    End Function
    Public Function Insertar(ByVal Denominacion As String, ByVal CodigoImputacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If Denominacion <> "" Then
            Parametros.Add(New SqlParameter("@pEDenominacion", Denominacion))
        End If
        If CodigoImputacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CodigoImputacion))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblBancoALTA", Parametros)
    End Function
    Public Function Eliminar(ByVal CodigoBanco As Integer) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoBanco <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoBanco", CodigoBanco))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblBancoELIMINAR", Parametros)
    End Function
    Public Function Modificar(ByVal CodigoBanco As Integer, ByVal Denominacion As String, ByVal CodigoImputacion As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If CodigoBanco <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoBanco", CodigoBanco))
        End If
        If Denominacion <> "" Then
            Parametros.Add(New SqlParameter("@pEDenominacion", Denominacion))
        End If
        If CodigoImputacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CodigoImputacion))
        End If
        Return CapaDeDatos.dConexion.ABM("STORE_TblBancoMODIFICAR", Parametros)
    End Function
    Public Function BuscarFiltrado(ByVal CodigoBanco As Integer, ByVal Denominacion As String, ByVal CodigoImputacion As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoBanco <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoBanco", CodigoBanco))
        End If
        If Denominacion <> "" Then
            Parametros.Add(New SqlParameter("@pEDenominacion", Denominacion))
        End If
        If CodigoImputacion <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoImputacion", CodigoImputacion))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblBancoBUSCARFILTRADO", Parametros)
    End Function
    Public Function BuscarFiltradoNom(ByVal CodigoBanco As Integer, ByVal Denominacion As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If CodigoBanco <> 0 Then
            Parametros.Add(New SqlParameter("@pECodigoBanco", CodigoBanco))
        End If
        If Denominacion <> "" Then
            Parametros.Add(New SqlParameter("@pEDenominacion", Denominacion))
        End If
        Return CapaDeDatos.dConexion.Consultar("STORE_TblBancoBUSCARFILTRADO", Parametros)
    End Function

End Class
